(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     16359,        432]
NotebookOptionsPosition[     15370,        394]
NotebookOutlinePosition[     15708,        409]
CellTagsIndexPosition[     15665,        406]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalOmega]", "=", 
   FractionBox[
    RowBox[{"4", " ", "\[Pi]"}], "3"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", "n"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v", "=", 
   RowBox[{
    FractionBox["\[CapitalOmega]", 
     RowBox[{"4", " ", "\[Epsilon]", " ", "n"}]], "[", 
    RowBox[{"1", "-", 
     RowBox[{
      FractionBox["\[Epsilon]", "\[Pi]"], 
      RowBox[{"Log", "[", "\[Epsilon]", "]"}]}], " ", "+", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"\[Epsilon]", " ", "n"}], "\[Pi]"], 
      RowBox[{"(", 
       FractionBox["1", "5"], ")"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"Series", "[", 
    RowBox[{"v", ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "Infinity", ",", "0"}], "}"}]}], "]"}], ",", 
   RowBox[{"n", ">", "0"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.515860023200257*^9, 3.515860181880713*^9}, {
  3.515860220321408*^9, 3.515860222798325*^9}, {3.515860262873423*^9, 
  3.515860361285699*^9}, {3.515860683598824*^9, 3.515860686242152*^9}, {
  3.515861227491324*^9, 3.515861228353542*^9}, {3.515863123691039*^9, 
  3.515863123896613*^9}, {3.51586316146369*^9, 3.515863161631606*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "n"], " ", "\[Pi]"}], 
   RowBox[{"3", " ", "n"}]], "[", 
  RowBox[{"1", "+", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "n"}]], " ", 
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        RowBox[{"6", " ", "n"}], 
        RowBox[{"5", " ", "\[Pi]"}]], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", 
          FractionBox["1", "n"], "]"}], "2"],
        SeriesData[$CellContext`n, 
         DirectedInfinity[1], {}, -1, 2, 1],
        Editable->False]}],
      SeriesData[$CellContext`n, 
       DirectedInfinity[1], {Rational[6, 5]/Pi}, -1, 2, 1],
      Editable->False], ")"}]}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.515860183991564*^9, 3.515860223588234*^9, {3.515860274915931*^9, 
   3.515860288368956*^9}, {3.515860326245853*^9, 3.515860362380145*^9}, 
   3.515860521030616*^9, 3.515860686854209*^9, 3.515861228763278*^9, {
   3.515863124846849*^9, 3.515863163144056*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{"Clear", "[", "n", "]"}]}]], "Input",
 CellChangeTimes->{{3.515860452938777*^9, 3.51586045790457*^9}, {
  3.515863145821762*^9, 3.515863147477279*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", "n"], " ", "\[Pi]"}], 
       RowBox[{"3", " ", "n"}]], "[", 
      RowBox[{"1", "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "n"}]], " ", 
        RowBox[{"(", 
         RowBox[{"6", 
          FractionBox["n", 
           RowBox[{"5", " ", "\[Pi]"}]]}], ")"}]}]}], "]"}], "\[Equal]", 
     RowBox[{
      RowBox[{
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "n"}]], "\[Kappa]"], " ", 
       FractionBox["1", "3"]}], "+", 
      FractionBox["1", "15"]}]}], ",", "\[Kappa]"}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.515861139105609*^9, 3.515861213578316*^9}, {
  3.51586124743886*^9, 3.515861272688207*^9}, {3.515861719214738*^9, 
  3.515861729283187*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Kappa]", "\[Rule]", 
    FractionBox[
     RowBox[{"5", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "n"}]]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"15", " ", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", "n"], " ", "\[Pi]"}], 
         RowBox[{"3", " ", "n"}]], "[", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", "n"}]], " ", "n"}], 
          RowBox[{"5", " ", "\[Pi]"}]]}], "]"}]}]}]]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.515861177689277*^9, 3.515861214093421*^9, 
  3.515861274859959*^9, 3.515861729677634*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"\[Sigma]", "\[Equal]", " ", 
     RowBox[{"n", " ", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "n"}], "]"}], "/", "4"}]}]}], ",", "n"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.515862053822736*^9, 3.515862072727819*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \
\[NoBreak]\\!\\(Solve\\)\[NoBreak], so some solutions may not be found; use \
Reduce for complete solution information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.515862073163355*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"n", "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", 
     RowBox[{"ProductLog", "[", 
      RowBox[{
       RowBox[{"-", "8"}], " ", "\[Sigma]"}], "]"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.515862073166919*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "/", "2"}], " ", 
    RowBox[{"ProductLog", "[", 
     RowBox[{
      RowBox[{"-", "8"}], " ", "\[Sigma]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[Kappa]", "=", " ", 
  RowBox[{
   FractionBox[
    RowBox[{"Exp", "[", 
     RowBox[{"-", "n"}], "]"}], 
    RowBox[{"1", "+", 
     RowBox[{
      RowBox[{"Exp", "[", "n", "]"}], " ", 
      FractionBox["\[Pi]", "n"]}]}]], "//", 
   "FullSimplify"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.515861806352942*^9, 3.515861852419797*^9}, {
  3.515862009284609*^9, 3.515862010134284*^9}, {3.515862050293239*^9, 
  3.51586205045321*^9}, {3.515862085755363*^9, 3.515862105440967*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"8", " ", "\[Sigma]"}], 
  RowBox[{
   RowBox[{"2", " ", "\[Pi]"}], "-", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"ProductLog", "[", 
       RowBox[{
        RowBox[{"-", "8"}], " ", "\[Sigma]"}], "]"}]}]], " ", 
    RowBox[{"ProductLog", "[", 
     RowBox[{
      RowBox[{"-", "8"}], " ", "\[Sigma]"}], "]"}]}]}]]], "Output",
 CellChangeTimes->{{3.515862099686851*^9, 3.515862105832795*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"\[Kappa]", ",", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]", ",", "0", ",", "0.1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.515862401424998*^9, 3.51586241000255*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAAouq5dM2HIT6I9oY0DFImPmoCFcCy
FAA/Pt3RmVZ5BD/2GHqwjxQQP8SQNo31eBQ/PKSsKH4UID/PVWVjdngkP9/p
xWR1FDA/wAbHb5l3ND+xjNICcRRAPw/LUNnvdUQ/Gt7Y0W4UUD857L5To3JU
P84GXLltFGA/GPh7dgdsZD8U4U1ZjcFwP4V84MTYOHU/cTKb4wXleD+l6hDL
eHJ/Px50i+3Pb4A/40ZQr3u1hD/6cWH/rMOEPweB7ckDFoo/rikOGJvNiD8e
P+pnGROPP1cE00YZLo0/L8iI3005kj+biBcWFL2QP0qPrCoW2JQ/9+swDCS+
kj+eX3hPskWXP85gVg186pQ/xHeOQR3jmT+RMueR3PGWP/WnCmeFT5w/cJ3D
cQXvmD+Vw9c5RqueP8oZrFx2F5s/NkffSYyaoD8Q8//K7xqdP+eKsYUYx6E/
0d1fRLFJnz9erWDEzAmjP9ewhYwdt6A/wA07hTJDpD88IZG45rahP/XtEAAW
ZKU/XZoi6lPMoj8jthy3LZmmP/XBaV1Fz6M/Vib6I/G0pz9L8jbW2uekP5LS
qobN4ag/Lu+pfFT7pT+FNs7MaP+pP4aa0mRS/KY/Xb6HuGb4qj9WVYnsrACn
P/datc9Q/Ko/JxBAdAcFpz+VE/RUNgCrP8iFrYO8Dac/Z38GzvIHqz8JcYii
Jh+nP82HIFwqF6s/2is/KoEjpz91cV3a6BqrP6rm9bHbJ6c/C5p4dKAeqz9K
XGPBkDCnPzHKyDD5Jas/jEc+4PpBpz/hR9bhQDSrP1wC9WdVRqc/Gc8Qgbg3
qz8svavvr0qnP4Ug2bAjO6s/zTIZ/2RTpz/POn6Sz0GrP57tz4a/V6c/XgML
Cw1Fqz9uqIYOGlynPxi053o3SKs/Dh70Hc9kpz/G6kMDSE6rP97YqqUpaac/
hbR2fSZRqz+vk2EthG2nP3nKlffhU6s/gE4Ytd5xpz8FTiCPclarP1AJzzw5
dqc/ZKhO1MxYqz8gxIXEk3qnPwr3zQjfWqs/8H48TO5+pz9/UxjNilyrP8A5
89NIg6c//JRHJZNdqz+R9Klbo4enP2ctaa1PXas/0lZv+x6Lpz9+oSV8A1mr
PwDlh54=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.1}, {0., 0.05344829397271586}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.515862410691427*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzNWwlcVVUa/zeaTlnTTOtM29iUZoZarpWmTnuNVmal5gquRIoiauiYQSiJ
uW9jtrikSeRWmjuKghq4IyoCIqCAsimbvMeDN/c797uP+x73vPsCnen3ywf9
7/9/7ve+s3zf+c6hu3fgiKEjvQN9B3s3fjXAe/QI38FjG7/iH6BA9W4CbhoB
ILkx6He78it/2JX/7L70QYjx72+LH/fAbstDVMgAjA5fiOn+AzE1Oh825Ykl
dQ46Ne+N6MIqCacER/wew91ez6FLly7Kv05o224Q9l+1w6vObQtLlWeFiFsW
hK733YvOUzYix2rHk9ej7YpcbFdw/xlfYkmYL3znH0ZR5fVp25YfhZD+gxCy
+BssDh6EAaHRyLf9xrYri3F6+zIEtboTD/aahbWxeagQ/jDW/sG5S0uOjIRX
+4VIU9xlPTcH7VqMwbFS+tqFSDqRibIqu5Rjy92KiUOW4FRplWitojAR6aWV
3KV31Klt1cx6sFtSMat9G4QmlTuGSl3aLY73Q8vOK3BBcbO9LAHjW7XDjBSL
w+W1b9uC5OlPoengeBST+4vjMKjp05iV+tvaFkPZXoy4fk3R4ZtMtSvtZn7C
W+JHQ+XTgpQZT6FJfzaj6CD6PPo0ZitmqNRGbjnEsGb9hKBh07EntwItPG73
djknJRfxIT4ICA5DWOg4/OuhB/DKuNnYmGVB8+vRfmoRzoa1QlOfQygh3Hoe
i9s0RveYq9ep/TJkR7yKpm+sxyVl5tty1uK1Jq8hMtvmUfv1HX537VYzm3Td
WoYTo5uhmf9xlBK19Bj8Hn8CgQllTPWEUx+WzAgM7fwBFiSUoMpuf9Jj6W1u
OZa07zB+8SmUlTsmq+dN3+6GU4BTk5rhnnYzkVhWBWvGCrzc+DksTLPqHF+X
9suUZbIA0UGd8fLoUPi/1BWT9hWgUuF40r68Y81scpqvyeHKGBjgPAZmOcaA
JxwypBI5kc/jwXb/QbpV17Fm0tvccux2Ky6sm4IvjydgpmvHmjV9uxtOGS4s
fwZN3lmN1V9/gUDvIfh0w3mUOzm+Lu1bUJ4UijYtxymLZBVKjgagRdswnC33
rH13M9a9TRxXG/B6vQjnxXo9T1uv67HTjR9XoXDvCPQIT8I1hVV0oBce8QrG
mXK7lyetNpI9VoNKRQ62BE/CMC99MK2loUoKosSgzs/ORIqFmr6M6NW7cKmC
B16tWy05PBRPtBdDWOBtm/viaKlZq9XdVYSDvZugfY24WfNNLt1lt+VjT6g3
AmctwcyxPgjbW0DZkmav5DFsBTGYPtgHk+YtxrRBPRG46RK92cuTVqWPtdTH
lrsJA5u0cuqtWtppr7qG1IhPEDjzKyxVnnfzi0SW1eHX2rZqycD3Y/piwvyv
MS+wDwIiMmGxe9yqkrgmrp+Hj737YuTWy7pE3o1XnLYl97Oj1H0Mq+mz2//m
+V30Q+yietDHzTVVE8ZtcSxVri39L7A//Z/e+3vCjHxwS82uGj50HTZvOvO7
MvP35MbfRVfVF4/S0grwVvflyM4u6mSg6GyAPe8hZqR1suBmx6M13x+H/6if
UVlZhY7/PzPo9X6+G/BDxAl1cXpDz2vg1MSFC1fR/V/LyYECeF1HVV+mhtL1
6xLFfLDZKgXvNX2TDZ2apH9Vyr517JjNWPbtYdTkO38LLbhdulQs+jApKVfV
vCrX1OPPrVuSMHDAD7BYbKrmFbmmPmOTJm7DooUHVJw+XzbXFBSU4Z23V+L4
8WxTzc2M7dubhj69vkdZmVXVvCTXNGBs2tTd+GLG3mrbXnTtD41ZXGzB+++u
wq8HM2oyXVpvyNih+Avo+c53uHq1XNW8INf8kbG5c2IREryr2qJ/mmuuXatA
3z5rsDsq1VRzC2OJJy/h7TdXID+/VNV0lWtuZWzpl3GYMH5LtW1dzDVWayWG
+KzFpp9P19QISSNmnjuXjze7LUdWVpHK7Cxv/TbG1qw5jlEf/SSmoHjyvLmG
uKNG/iS0ZhptiVTWOWEb2SiedJJrtCX0l81nxDcnD4gnHeWaOxibGLQNXy2N
r/bwc+Yaba6cSrxkqvkzYzH70tDvgzVi5Ignz7r2yl+Y+XnYHsyZFVNt0TPy
1jVNSYkFvd9fjbhfM001dzJ29MhFvKufKx3kmrsYW7jgAD79ZEe1be1VjbrC
1bHoLCnq1nNjD62KtDru3JFsYM/ddaqaqu9y2gzXNzDlbsbOns0V0/vy5RLV
lHaqKbxmuCl86YsS7mqUHhhzD2Mrlh9GwJhNIkqJJ21djJEWazwpfcmMEQFa
6xqa9L4j1mPtjwnGJkjLCp4VaTzyx72MZWZeEavJ+fOFqjFt9OOkbjUGlw24
kRn3MbZxQyKGDlmLigpeoFo7m+F299hIvic12FW6M4NGBe3Svloa52SG0cz/
K2MUtWh4nzyZo2qelmv+xlh09Dn06a3LD56SazQsbNpuzAiPrl5hWplraPXr
9d5qxMacr6kRkgeYeexoFnr2WClWcMFsKW/9QcYWLzqIiR9vrbaohbmGIpDP
oEhs2nTaVPMQYxTpKFGlhFU88ZJrHmYsQomoI4avr47GT5prqPfH+P9cnbm6
0fydMS1zdUS85q4ebszMXTtT8IG+z5+Qt/4IY58p2ZdTnzcz11B2+F7PVYjR
+tyN5h+MHVEinlMG9rhc8yhji5SIR3PFsZI2NddYrTbR+xvWJ5pqHnPq/WVI
T+cVqolc04SxyMgEDFO2LI7l5DHXXtGYZH1gwObqGf+YvPWmjOXlqTP+hLYj
eFSueZyxvdFpIg8pLeXe/4dc04yx8M+jxax39P4j5hoaXTTK9uxONdU8wRiN
Xfo+ubnc+43lmuaM0Rwhvzl6/++uHtaYNAM/HLFB9EkNpkvrTzJ28eJVEZVS
UjjHfViu8WKM9oODBkRW7wcfkmtaMBY8ZSfmz42t9rC6TIHD4w244WAUfTRr
iorKxb4uLi7TyJobcDhvZE1LxigiqFnwNdWaB9ia63+u3MDAjFaMLfnPr85B
5n6dGTfkHLQ6Y9M6hoIWLSc/bTxV04YbcmRn1DFPMZaRcUVMV/opnvxNZ438
jKOWh01GljzNGPmD/OLYVv7VyRJZVlbLcxQjS1oz9u9J28RIcYyS++STX9PQ
9o4C5eHDF001bRijQEkax9bwXrmmrW4Ek30O2+4x15BHh+tHnF4jJO1cRoMj
PN4tb709Y1TZdioH3CXXdGBsirK5pZDv+BZ3mmvEgvbeKsTHZ5pqnnFZdgoL
edn5i1zzLGMUvIOUNcIRjP5srrHZKkWCSNXNGhoheY6ZFIzIw2nnClTmHfLW
tdLvtq1nRaLjCEZ/kmu0qjUle/P0weh2c41W3jhwIN1Uo5WWExJynFP92+Qa
rfT87TeHMC7wl2oPNzLXUOAf6bdRpOJmmi6M5WQXC187CsG3uvZKV2ZSgkNl
I0c6bXCKo7X+T8YolQ6bqkuo/miuobJU/74R2KEVUtxoXmAs+Wye2BQ4yocN
5ZoXGftRSY9oPDpS1gbmGrFdHb9FXflMNC8xRr1OvX/40AVVoz+oFJKXmamV
jB0zsb689VcYI0vIIsc4qWeuoW9M9ZAftQTRjeZVxqgISuOEPC2e8IFwnRM3
K7LWBaLnuwGYvnA2Jg/rhYDVaXQVxSj6vMbYrl0pYow4Spg3OVlT+8StHBnr
lmBbtlW0Y0kOR8uH30BUoaE1rzMWPj1abB0co9zDnM0TDr1XSRX2eKNJi0Cc
KHVrCLljQL8I4R69IXW7XkZGXlw3D3PnBKFPv88RlWO92cCINxhLSc5Dj7dW
ihFT5eSN65O2XcPpz1qjdVAiyvSpo+YDCi80uGmQV+peX/s87UrsWAxbng6r
3YasVR3wUNfNyKsy7IhujFEpX8uObE5G1DpFy9uJ4AHDELJoLib07IfwQ0WO
1FliBKVMlAzQ7sYmn+HdGaPNNa1TVJKokNPfZGz5MrWuS0HHak4nGh3Xfrfy
qDv6W4zRzpgGEYVOi+t6+TaT9semi2IbZT3l8jZ7MEb7Ti0tvGZO1zLCdWtP
uqO/w5g+kJbJ6T0Zo/IElQ0onyiV099lbM7sGAR/ulMdx+Z0KvtQvknZrJ4u
2O8xKUNJYMni1NR8FMvbfJ+x7duTHWtukZzeizE6O5oaGiX+76o5XVu66C1u
6L0ZoxqV2JIp3+GKnN6HMSp+Dvb5EeXlFSiU0z9gLPSzKEcVsMCcThkReYZs
19MFu6+2LKbkixSFtg358jb7MUY9R8UV8kuenN6fMTo1Jo/T/+Wa06ko1k+x
mEo4bugDGKOgTxVBuvlxWU4fyNhGxXbqS7L9kpw+iDFKw6dxkpjj6j6NpPmY
ejJH3qa3bnxo9axsOd2HsS2/JAl/kF+y5PTBjFGNUDunv6jS65wH2Vlf489o
jJZ4zRDysPfASOFxzRB1W1WH2pXR334YBfwhunWERjYdO15gI27cnywYuWMo
Y1rFnxbVTJ0l1/16vZE7hjG2YP5+TJ60XWTkGU7uuM5XwYURIvfReoJClt+H
G8XtBv2rzXKf33Z12ejLD2eMjpwpiaBkIt3JAveJz2+6jWtkwAjG6NoB1Yto
13VePpN9GaNtNp1AUXqSZk4nGl21ovqHG/qHjNFGjkorVCw4J6f7MZZwIlsE
NcqcU10Xwo+YRBfN6OCWQnyKvE2NTqOQKkkUztzQR+oCAy2zdH8lWU4fxRgF
BG1XeFZO99fmp7IvoVNYOjFLktNHM0YJm1ZlOmNO10b/yhVH3NHHMJbLQ5V2
3addvR3AJLqZQnkonTqekrc5ljG6lDhc1GdtSDSn0xf7ZPIOsXl0Qw9kjGLg
wP4/iNzgpJw+zmVdptteCXL6eMYoI9Vmzgk5fQJjdB+Mbl/RPuu4q/s0Es0X
OrSaP2+/E8mlzY8Zo5MPSuijolJxTE4PYkxLAimBPSqnT2RMuwNw5co1HJHT
JzH29VfxGDNa3eAcNqdTX9JgpUHrhv5vxihE0USjzOOQnD5Z60suOtPJYbyr
tz9h0oH96WLDR8elcfI2pzBGN3PonJDmza/mdG2wUj2P6XVOeqpQkrAQg7v5
YPK8JfhilA9Ct12WHT18yhglPbQCrl51DAedDKl90mPFxR8CMHl3vvjrM+u5
uWjTdCAOFhkaEswYBTs6PqSD/wNsSN3rPtols6q8X9Dp/tZYmlFhmPSEMEZD
gpYomgX7dVbU7Q/zKq+exNbjhUofVSJ/50A82mw0jpQYX+b5jDG6+kbTl8Je
rJM/6vKXZBWZEegbsgBLFkzFOP8QRJ4ppcoHqks/midoxtJdbBrQMbr3m6U/
t8jTn/w9GBx+ShzRNTT45qEuc4O2Mc5vrm29R3igWUt06NgRHTt2wuv+sSg0
LjpN1c0LOhxc9d1R7JPP52n60ausFtF7zmGvnB7GGA0viiZ0eBctp3/OGNGI
TrI9cvp0xmjrTMGHjNrtur6FM4m+GO12aO2Mkrc5g7FZM/eJ3I42/bvM6PXF
Ok9bUTr7Vn7fKVd8wQoaZxQh6BK5MgJ2yBUzWUFd9JHfRlExVt6xXa6YxQqK
+ZRxUmiJjTm/Ta6YzQoKyHSNeKZq1Va5Qnzq/9hKPK6BmqncPMdN/wXp5wm8
\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ProductLog", "[", "5", "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.515862672655614*^9, 3.51586267865826*^9}}],

Cell[BoxData["1.3267246652422002`"], "Output",
 CellChangeTimes->{{3.515862675292607*^9, 3.515862678913769*^9}}]
}, Open  ]]
},
WindowSize->{740, 607},
WindowMargins->{{142, Automatic}, {Automatic, 23}},
FrontEndVersion->"8.0 for Linux x86 (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 1326, 35, 140, "Input"],
Cell[1908, 59, 1068, 30, 49, "Output"]
}, Open  ]],
Cell[2991, 92, 191, 4, 50, "Input"],
Cell[CellGroupData[{
Cell[3207, 100, 932, 28, 56, "Input"],
Cell[4142, 130, 792, 24, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4971, 159, 374, 11, 50, "Input"],
Cell[5348, 172, 531, 11, 61, "Message"],
Cell[5882, 185, 316, 11, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6235, 201, 758, 22, 107, "Input"],
Cell[6996, 225, 504, 15, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7537, 245, 220, 5, 30, "Input"],
Cell[7760, 252, 7290, 128, 234, 1516, 31, "CachedBoxData", "BoxData", "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15087, 385, 152, 3, 30, "Input"],
Cell[15242, 390, 112, 1, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

